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3 1 1 

3 § O0¢ MODULE ACPCTR (LANGUAGE (0415838) ° 

3 0 IDENT = ‘V04=-000' 

3 4 004 )s 

: 5 Bo? : BEGIN 

: ; 007 : leueennerenneeneetentneteenenteerertectererenntsesnnnnannnsnetnenenneeteetes 
P4 Hel ” 
3 S 0009 1 !® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
; 610 010 1 '* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
3 3 0012 : :* ALL RIGHTS RESERVED. * 
Ps ; ef 
3 18 ig 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
; (O16 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
bs 15 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
F4 16 0016 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
3 17 0017 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 Hs id : ;; TRANSFERRED. * 
Py 4 % 
: 20 it $4 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
3 21 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
° $$ 0098 ; - CORPORATION. * 
Py :* te 
; 26 0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; $2 80 i : : SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
Py ; ra 
: gf 0027 1 !« * 
3 ; Boss ; See RARER AAA RA AREA AAA AAA AAA AAA ARERR 
: 50 6080 1 !44 

5 1 0031 1! 

3 $ O03 1 ! FACILITY: MTAACP 

3 0033 1! 

; 4 ite 1 ! ABSTRACT: 

: 5 b032 : : This module handles acp control functions. 

: 37 0037 1 | ENVIRONMENT: 

3 8 0038 1! 

3 9 0039 1! Starlet operating system, including privileged system services 

s 6 0040 1! and internal exec routines. 

; (41 0041 1! 

3 $ Ones 1 !-- 

s 6 043 1 

: «6446 044 1! 

; 645 045 1! 

5 $8 Bose : : AUTHOR: D. H. Gillespie, CREATION DATE: 09-JUL-1977 

> 48 048 1 | MODIFIED BY: 

; «649 049 1! 

; $0 50 1! v03-005 MMD0236 we Dumont 4-Feb-1984 15:13 

: 3) be : : Add support for Fl $C_CLSEREXCP when set with IO$_ACPCONTROL. 
; 2g 038 1: v03-004 MMD0171 Meg Dumont 9-May-1983 15:12. 

3 33 pee ! : Fix to make USER_STATUS defined cons stently within module 

: 4 6 1} VO3-003 MMD0149 Neg Dynont , 26-Apr-1983 8:51 

.. 3 ») ae ie Change references to 80 to the symbol ANSI_LBLSZ 
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15:22 | 
a call to stop access to a file if the trailer labels 
| 


; 1! 3 
: Fe : } v03-002 pote Meg Dumont, 3-Jan-1983 : 
; 61 ? ' wey been read. : 
: 6 : 1: v03-001 $1J0309 Steven T. Jeffreys 1=Jun-1982 : 
: ¢: bee ; Added handler for REMOUNT control function.” “It's a NOP. ‘ 
; 66 66 1 vO2=011 DMw00077 David Michael Walp 8-Feb-1982 : 
: 4 ! Stored account and user name during mount time : 
: «69 5 1 i v02=010 pMw00034 David Michael Walp 15-Sep-1981 ; 
; £9 ty } Fixed Cancel 1/0 vs Dismount race condition : 
mm 0078 1 i v02-009 pMw00024 David Michael Walp 20-Jul-1981 : 
ee 0075 1! Change to RET_FREE_PAGE to not contract region PO every time . 
; a Shoe : : space is returned. : 
: 7% 0076 1! v02-008 DMw00009 David Michael Walp 14-Mar-1981 ; 
: a th ; Changed calculation of CCB address : 
: 79 0079 1: v02=007 pmw00001 vid Michael Walp 11-Nov-1980 : 
; B® 0080 1! New BLISS compi er ptt declaration changed from ; 
; 8 0081 1! BBLOCK to BLOCK. old compiler used to give a longword ; 
3 Ht le : } with a declaration of ‘BBLOCK [1]"’. : 
; 84 0084 | ; V02-006 REFORMAT Maria del C. Nasr 30-Jun-1980 
: 86 0086 1 v02-005 MCNO017 aria del C. Nasr 18-Jun-1980 : 
s 687 0087 1! Add a cots to START v0 after completing the next volume : 
; 0088 1! write. This is part of the fix for multivolume rogess ing. ; 
; «689 0089 1! in which a new volume should be requested when the EOT is F 
; 0090 1! sensed in writing the header labels, and not wait for the : 
: 4. a9 : data to be written. : 
; 38 0093 1: V02-004 SPR27361 aria del C. Nasr 10-Jun-1980 3 
; 96 00946 1! Add a colt a START “VIO etter completing the next volume : 
3; 0095 1! read. This * pers “of the general fix which delays 10 : 
3 38 its) : posting patil all 10 is successfully completed. : 
: 98 0098 1: A0103  MCNO0007 Maria del C. 13-Nov-1979 19:35 3 
5; WP 0099 1! Set single directory A “Gevice bit  OEVSM. SDI) 3 
; 100 0100 1! 3 
3s 101 101 1! 3 
: 4 10 1 !ee F 
s 10 19? 4 3 
3 ioe : : ' LIBRARY ‘SYSS$LIBRARY:LIB.L32'; : 
; 106 198 | REQUIRE "SRCS:MTADEF .32"; ; 
: 108 91 1 FORWARD ROUTINE ; 
: 109 4 1 MTA_ACPCNTRL : NOPRES NOVALUE, ! control function dispatch g 
: 110 93 1 MTA_MOUNT : NOPRES NOVALUE, ' mount function : 
36112 9% 1 CANTEL_10 =: COMMON_CALL NOVALUE, ' cancel i/o control | 3 
3 We 95 1 DO CANCEL =: COMMON-CALL NOVALUE, ' do actual cancelation of io 3 
. os 96 1 MOONT : COMMON-CALL NOVALUE, ' mount control function, kernel mode 3 
: 116 97 1 STALL COMMON= CALL NOVALUE, ' stall cancel 3 
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acrcie 

; 113 9 } TERMINATE _VOL: COMMON_CALL NOVALUE; ! terminate mount volume request 

3 113 1 vale ROUTINE 

3 4 1 CANCEL OP_REPLY : COMMON_CALL, ' cancel reply from operator 
; 11 § 1 DONE, ! complete io 

; 1 1 NERT_VOL_READ : LSNEXT_VOL_READ NOVALUE, ! get next vol for read 
- 1 NEXT_VOL_WRITE : LSNEXT_VOL_WRIT NOVALUE, ! get next vol for write 

3; 1 ¢ . F READ BLOCK : C CALL, ! read a tape block 

3; 1 1 RET FREE PAGE : COMMON_CALL, ! return virtual page to free list 
; ! : 2 } 5 Tone ACL ERR : COMMON-CALL, ! return blocked virtual io in error 
3; (1 § 09 1 PACE_TM : COMMON_CALL, ! space tape mark 

ESS 0 1 START VIO. : COMMON_CALL, ! start up virtual io 

: 128 i111 STOP_91 : ALL, ! Disallow VIO's 

3 vey b21¢ 1 SYS$010W : ADDRESSING MODE (ABSOLUTE), 

; ; : Ri : ZERO_CHANNEL : COMMON_CALL; ! zero channel 

3; 1 ; 0313 1 EXTER 

3 Y 218 1 SCHSGL_PCBVEC : REF VECTOR ADDRESSING_MODE (ABSOLUTE), 

Th. 0517 1 CURRENT_UCB : REF BBLOCK, 

3 1355 0518 1 CURRENT WCB : REF BBLOCK, ! address of current window control block 

; : : $384 ’ yy om : REF BBLOCK, ! hdri(eofl) Label 

7 03 1 #41 I1O-PACKET _: REF BBL OC. ! address of current io packet 

3 + 4 3 ¢ : USER_STATUS : VECTOR [2]; ! address of user status 
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GLOBAL ROUTINE MTA_ACPCNTRL : NOPRES NOVALUE = 


i FUNCTIONAL DESCRIPTION: 
; This routine handles the acp control function. 


i CALLING SEQUENCE: 
i MTA_ACPCNTRL() 


1 

! 

! 

1 

! 

' 

' INPUT PARAMETERS: 

: None 

i IMPLICIT INPUTS: 

: CURRENT_UCB = address of current unit control block 
: CURRENT _VCB = address of current volume control block 
' 10_PACKET = address of current io request packet 
QUEVE_HEAD = address of acp queue 
i OUTPUT PARAMETERS: 

: None 

i IMPLICIT OUTPUTS: 

LOCAL_FIB = copy of user's fib 
i ROUTINE VALUE: 

None 

4 
7 
a 
1 


BEGIN 

EXTERNAL REGISTER 
COMMON : 

EXTERNAL ROUTINE 


ISSUE_10 : LS$ISSUE_IO, ! Send an io to the tape drive 
T_FIB : ° ! get user's file information block 


B : COMMON 
POSTTION_TO_END = 


COMMO 
E  : COMMO 
REWIND_FILE : COMMO 
REWIND-VOL_SET : COMMO 


EXTERNAL 
: address of current unit control block 


CURRENT_UCB : REF BBLOCK, 
10_PACKET : REF BBLOCK, 


QUEUE _HEAD : REF BBLOCK; 


LOCAL 
FIB : REF BBLOCK, 


CAL position volume set to end 
CALL, ! space within file 
CAL 


° ' rewind file 
' rewind volume set 


Pied 
nas 
ee 


address of current io request 


packe 
address of acp queue head 


| 

| 

| 

| 

| 

j 

i SIDE EFFECTS: 
; None 

| 

| 

address of copy of user's | 

| 

| 
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' ss file info block 
| 
| 


FUNCTION : BLOCK (1), io enetion code and 
PACKET : REF BBLOCK; : address of io request packet 
spc} = .10_PACK ! get address of io packet 
FUNCTION = PACKETLIRPSW. FUNC]; ! get tunction code and modifiers 
IF -FUNCTIONC10SV_DROUNTJ 
pEUNCTIONCIOSV_AOUNT 
»FUNCTIONCIOSV_REMOUNT) 
RETURN; 


IF NOT .PACKETCIRPSV_VIRTUAL] 
THEN 


BEGIN 
KERNEL_CALL(CANCEL_10); 
IF (, CURRENT _VCBCVCBSV_WAIMOUVOL] 
NOT CANCEL_OP_REPLY()) 
yg" CURRENT VCBCVCBSV_WAIUSRLBLI 
BEGIN 
ERROR(SS$_CANCEL) 
KERNEL StACL (DO. CANCEL) ; 
END; 
! Stall cancel until rewind or mount vol complete so cancels are not 
: continuously issued. 
IF CURRENT VCOCVCBSY_UAIREUIND) 
yg” CURRENT VCBLVCBSV_VAIROUVOL? 
KERNEL_CALL (STALL); 
RETURN; 
END; 
FIB = GET_FIB(.BBLOCKC.PACKETCIRPSL_SVAPTE], AIBSL_DESCRIPT]); 
c CURRENT _VCOCVCBSV_WAJUSALBLJ 
ERR_EXIT(SS$_WAITUSRLBL) ; 
if CURRENT _VCBCVCBSV_MUSTCLOSEJ 
ERR_EXIT(SS$_MUSTCLOSEFL); 
! Allow the user to clear the serious exception from the tape drive 


| 
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4 a NOP. This gives the 
ty to write blocks beyond EOT and before the 
344 labels. It also allows the user to read blocks beyond the 


and before the EOV Labels. The user is never allowed to 
read the EOV Labels. 


oO 


ar 


WW 
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by issuing a pongencde. which is effectivel 
user the capibil 


rs 


-000 
ey 
o¢ 4 Please note that the case statement works on the eesunet ion that 
6 5 the variables are within a certain range. FIBSC_CLSEREXCP does 
re § not fall in that range. 
08 8 IF .FIBCFIBSW_CNTRLFUNC) EQL FIBSC_CLSEREXCP 
6 +34 THEN 
68 50 BEGIN 
34 651 ISSUE IOC IOS_SENSEMODE, 0, 0); 
0 26 RETURA; 
f} oe? 3 
7 0655 smc” 5 ‘ampahies abianctieanian FROM FIBSC_REWINDVOL TO FIBSC_REWINDFIL OF 
7s 0657 
76 58 CF IBSC_REWINDFIL] : 
As 2, REQIND_FILE(); 
79 0661 CF IBSC_POSEND) : 
80 Beg POSITION_TO_END(); 
81 066 
8 0664 CFIBSC_NEXTVOL] : 
B7 0665 BEGIN 


file must be accessed 


3 


AUF WN—O0® 


IF .CURRENT_WCB EQL 0 
ERR_EXIT(SS$_FILNOTACC); 


! if not in data area, not appropriate time to be doing a next 
} volume 


peeseccereee 


IF .CURRENT_VCBCVCBSB_TM] NEQ 1 
ERR_EXIT(SS$_ILLSEQOP); 

KERNEL_CALL(STOP_VIO); 

IF _.CURRENT_WCBCWCBSV_READ) 


THEN 
BEGIN ! read case 
SPACE_TM(1); ! space to trailer record 


IF NOT READ_BLOCK(.HDR1, ANSI_LBLSZ) 
ERR_EXIT(SS$_TAPEPOSLOST); 

IF .HDRICEOISL_EOILID) EQL ‘EOF1' 

THEN 


o 
GoCcoCco 
Wt—O Oo 


LJ 
o 


o 


RANLSSSLEAE 


co. 
w 
ss 
PERE ESSE & FANNIN NAN AA AAA AAI HI AIRS PIPUPPPONIPUPINPUNI PI WININIPONONOPONoPoTononny 


} 

10 

18-5 -1984 02:08:09 AX-11 Bliss-32 V4.0-74 P 7| 
1 ~3e5-19 4 95:08:98 MTAAcPesReSACECIR O37 OOF ah 


T ACPCTR 
ENT \v04-000\ 


ACPCTR 

v04-000 

5 13 695 4 ERR_EXIT(SS$_ENDOFFILE); é 
3; 314 0696 4 * ri é 
s 69 97 4 NEXT_VOL_READ(); ‘ 
; 18 a8 4 3 
3 1 4 3 
: 18 $ 
s 31 701 3 
3 0 7 ¢ 3 
3 1 7 3 
: : 7 CF IBSC_SPACE] : FH 
H 0705 SPACE_IN_FILE(); $ 
: 4 3286 3 
3 5 7 CFIBSC_REWINDVOL] : 3 
$ 6 0708 REQIND_VOL_SET(); FY 
3 7 0709 3 
3 8 0710 COUTRANGE) : 3 
; ; +] grit ERR_EXIT(SS$_ILLCNTRFUNC); ‘ 
: San at CINRANGE] : s 
; 332 0714 ERR_EXIT(SS$_ILLCNTRFUNC); : 
3; 3 0715 § TES; : 
; 334 0716 3 
; 335 0717 #1 END; : 


10 R 
-EXTRN NERT_VOL_WRITE, READ BLOCK 
RETURA_ALL_ERR 


H 
XTRN SCHS$GL_PCBVEC,~CURRENT_UCB 


0000 00000 ENTRY MTA_ACPCNTRL, Save nothing ; 0524 

52 00006 CF p0 9000¢ MOV PACKET : 0586 

5 20 A2 3C 0000 MOVZWL 32TPACKETS, FUNCTION : 0587 

01 50 OA Fi 9008 BBC #10, FUNCTION, 1$ : 0589 
01 50 09 Fi a910 1$: BBC #9, FUNCTION, 2$ : 0591 
01 50 08 FI 0013 2$: BBC #11, FUNCTION, 3$ : 0593 
4D 2A A2 4 EO OOO1A 3$: BBS #4, 42(PACKET), 8S : 0597 
E D4 O001F CLRL Os = §P) : 0600 


NEXT_VOL_WRITE(); ! write case 
KERNEL CALL (START _V1O) ; i requeue blocked io 


m 10 
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¥04<000 1exge8- 1382 95:08:95 MTAACP.SRCJACPCTR.B32: 9 02) 
SE DD PUSHL SP ; 
0000v CF oF ; PUSHAB CANCEL_IO : 
000000006 9F EB CALLS #3, a#SYSSCMK : 
08 AB E BC #2, 11(C RRENT ace) 4$ + 0602 
00006 cr Fe CALLS #0, CANCEL. OP_REP + 0604 
NB t 4$ piece HY ccument vcB), 6$ : 0606 
00006 CF 0830 er 80 49 5$: MOVW #2096, USER_STATUS + 0609 
E D4 0004 CLRL = (SP) + 0610 
5E DD 00049 PUSHL SP : 
O000v CF 9F 00048 PUSHAB DO_CANCEL : 
000000006 9F 03 FB O4F CALLS #3, a#SYSSCMKRNL ; 
06 OB AB EO 00056 68: BBS #3, 11(CURRENT_VCB), 7$ + 0617 
01 0B AB 02 FO 00058 BBS #2, 11(CURRENT-VCB), 7$ + 0619 
4 00060 RET ; 
7E D4 00061 7$: CLRL = =( SP) + 0621 
SE DD 00063 PUSHL SP : 
0000v CF 9F 00065 PUSHAB STALL ; 
00B4 31 00069 BRW $ : 
2c «6B2 «(DD 9006¢ 8$: PUSHL 9@44(PACKET) > 0627 
00006 CF 01 FB 0006F CALLS #1, GET_FIB ; 
52 50 DO 00074 MOVL RO. FIB ; 
04 0B «AB 04 E1 00077 BBC #4. 11(CURRENT_VCB), 9$ + 0629 
0950 8F BF 0007C CHMU + 0631 
04 0B AB 06 E1 00080 9$: BBC #6, 11(CURRENT_VCB), 10$ + 0633 
0948 8F BF 00085 CHMU = #2376 + 0635 
11 16 A2 6100089 10$:  CMPW $22(FIB), #17 + 0648 
0B 12 0008D BNEQ 11$ F 
ce 7€ 0008F CLRQ  =(SP) + 0651 
27 DD 00091 PUSHL #39 : 
00006 30 00093 BSBW  ISSUE_I0 : 
SE 0C CO 00096 ADDL2 #12, SP : 
04 00099 RET + 0650 
05 01 16 A2 AF 0009A 11$: CASEW 2(F 1B). #1, #5 + 0655 
0089 0018 0015 008F OO09F 12$: <WORD 24$-12$.- : 
000F 0095 000A7 14$-12$.- : 
15$-12$.- F 
g38-128.- : 
5$-12$.- : 
13$-12$ ; 
0086 31 OO00AB BRW 25$ : 0711 
00006 CF 00 Fe OOOAE 13$: CALLS #0, REWIND_FILE > 0659 
00006 CF 00 FB 0 Bs 14$: CALLS #0, POSITION_TO_END + 0662 
00006 CF DS O00BA 15$:  TSTL § CURRENT_WCB + 0670 
04 12 O0BE BNEG =: 16$ ; 
OOAC 8F BF OC CHMU = #172 : 0672 
01 2E AB 1 ca 16$: CPB 4 (CURRENT_VCB), #1 : 0678 
O2pc BF BF p ¢ MU 153. + 0680 
E D& OOOCE 178 LRL 0s = (SP) : 0682 
5E BD PUSHL SP : 
00006 cr F 000D PUSHAB STOP v10 : 
00000000G 9F 3 6F D6 - CALLS ott SCHR RA. 3 
50 00006 CF D DD MOVL CORR NT 4B 8 > 0684 
2F 0B AO €E9 000E2 BLBC  11(R0),72 ; 


3 ; 
Vou=000 1-88-1986 13:46:81 ENTAACPOSRESACPCIR: B32: a 


1 DD O00E PUSHL #1 : 0687 
00006 cr 0 FB nit CALLS #1, SPACE_TM : 
E 50 8F 9A OO0ED MOVZBL #80, <(SPY + 0689 
00006 CF DD OOF PUSHL HDR : 
00006 CF é FB F5 CALLS #2, READ_BLOCK : 
04 ig OFA BLBS RO. 18$ : 
0224 BF BF OOOFD CHMU 80s #54 + 0691 
31464F45 BF OG DF 0100101 18$:  CMPL @HDR1, #826691397 + 0693 
4 12 OO10A BNEQ  19$ : 
0870 8F eF 1 CHMU = #2160 + 0695 
00006 30 00110 19$ BSBW § NEXT_VOL_READ + 0697 
0 i} oi BRB 21$ + 0684 
00006 30 0011 208 BSBW NEXT_VOL_WRITE + 0700 
7E 04 00118 21$ CLRL =(SPY + 0701 
SE DD OO11A PUSHL SP ; 
00006 CF 9F 0011C PUSHAB START : 
000000006 9F 03 FB 00120 22$: CALLS #3, OPS YSSCMKRNL 3 
04 00127 RET + 0655 
00006 CF 00 FB 4 8 238: CALLS #0, SPACE_IN_FILE + 0705 
00006 CF 00 FB 001 é 24$: CALLS #0, REWIND_VOL_SET + 0708 
04 001 RET $ 
O0E4 8F BF 00134 25$:  CHMU #228 + 0714 
04 00138 RET : 0717 


; Routine Size: 313 bytes, Routine Base: $CODE$ + 0000 


; 336 


0718 #1 
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—! 


ROUTINE MOUNT : COMMON_CALL NOVALUE = 
hos 


i FUNCTIONAL DESCRIPTION: 
This routine gets a virtual page for the mounted volume to use 


CALLING SEQUENCE: 
Mount(), must be called in kernel mode 


INPUT PARAMETERS: 
None 
stasis 5 URRENT. Ut 


T_UCB = address of currnet unit control block 
CURRENT _VCB = address of current volume control block 


a Ba i i i Mi Me Sn i ee eS te 


3 9 1 

3 0 1 

3 1 #1 

3 § 1 

3 1 

3 a 

: se | 

: 0 1 

} 0728 1 

3 9 1 

3 0 1 

3 : a 

; ¢ 1 

; 1 

3 0734 «1 

r 0735 «1 

3 b7 39 1 OUTPUT Ata 

: 07 1 Non 

: 0738 #1 

P4 0739 1 IMPLICIT OUTPUTS: 

3 Soe : Virtual page for volume to use 

$ 2544 1 ROUTINE VALUE: 

5 0743 1 None 

3 0744 1 

; 0745 1 SIDE y Shee 

; 0746 1 None 

: 0747 1 

r 0748 1 !<- 

3 0749 #1 

3 0750 BEGIN 

3 0751 

$ eT) EXTERNAL REGISTER 

; 075 COMMON 3 

$ 0754 

3 0755 EXTERNAL ROUTINE 

3 ? 164} GET_FREE_PAGE : COMMON_CALL; ! get free virtual page 
3; 377 0758 EXTERNAL 

s 378 0759 

5 79 0760 ' address of current unit control block 
3 80 0761 : 

$ 81 154 CURRENT_UCB : REF BBLOCK; 

3 + 76 

; 3 the LOCAL 

; 84 765 JIB : REF BBLOCK, 

3 385 076 PCB : REF BBLOCK, ' 
3 38 bees VPAGE : REF BBLOCK; ! address of virtual page for volume set 
3 4 4 , : get virtual page for use by the volume set 
3 90 0771 Ger FREE peat wig 

> 391 ore VPA AGE CVVPSB TYP PEI = TYPE; 

; 4 77 INSQU VeaGe RENT PacBrveBse PFLI); 

: 39 77% VPAGE Wrst “SAL OF = = VPAGE VOPSL ~STALLIOF Ful: 
: 94 775, VPAGELVVPSL~ _STALLIOBL VPAGECVVPSL~ _STALLIOFLJ; 
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; 77 
; 96 O77? CURRENT_UCBCUCBSL_DEVCHAR] = .CURRENT_UCBCUCBS$L_DEVCHAR] 
; 98 Ors (DEVSM_MNT OR DEVSM_DIR OR DEVSM_SDI); 
3 ret f 1 save the Account and User names 
: 49 g § PCB = : ota PCBVEC : (1O_PACKETCIRPSL_PIDI)<0, 16> J; 
: 404 0785 CHSMOVE ( vPSs. OSERNAM NAMES J JIB CJ1B8$T “aEEuNT2: VPAGE CVVP$T_USERNAM 1, ); 
> 405 07 6 CHSMOVE ( ( WPSS~ “ACCOUNT, JIB CJIBST-ACCOUNT VPAGE VVP$T-ACCOUNT] ); 
; 406 0787 1 END; end of page 
‘ .EXTRN GET_FREE_PAGE 
OOFC 00000 MOUNT: .WORD Save R2,R3,R4,R5,R6,R7 
SE 94 C2 90002 SUBL2 #4, SP 
E DD 0000 PUSHL 
01 DD 00007 PUSHL 
00006 CF 02 FB 00009 CALLS a2. GET_FREE_PAGE 
50 6 DO O000E MOVL VPAGE, RO 
0A AO 02 90 00011 MOVB #2, 10(RO) 
51 3¢ 60 AB.sO9E:-«00015 OVAB 60(R11), R1 
& 60 3 00019 INSQUE (RO), (R1) 
57 of DO 0001C VL. -VPAGE, R7 
50 O1A6 «CC i 0001F MOVAB 420(R?) RO 
60 50 DO 00024 MOVL RO, (ROS 
O1A8 «C7 50 DO 00027 MOVL RO, 424(R7) 
50 00006 CF DO 000eC MOVL C RRENT_UCB, RO 
38 AO 00080018 &8F C8 00031 BISL2 #524312, 56(RO) 
51 000000006 9F DO 00039 MOVL § @A#SCHS$GL_PCBVEC, R1 
50 0000G CF DO 00040 MOVL. 10 PACKET, RO 
50 0c £0 00045 #12 RO 
50 60 3C 00048 MOVZWL (ROS, RO 
50 6140 DO 00048 MOVL  (R1)EROJ, PCB 
56 0080 CO DO 0004F MOVL 128(PCB), JIB 
0180 (7 0c Ab 0c 38 00054 MOVC3 #12, 12(JIB), 432(R7) 
01BC oC 18 Ab 08 38 00058 MOVC3 #8, 24(JI1B), 444(R7) 
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¥04<000 13-808 - 1 3b 05:08:08 EMTAACP SRe ACPCTR.B32; . ned 
; 408 res 1 ROUTINE CANCEL_IO : COMMON_CALL NOVALUE = 
; 409 4 1 
; 410 790 1 !44 
: 6411 791 #1! | 
; tig 136 1 ! FUNCTIONAL DESCRIPTION: 
: ait 14s, : This routine sets the cancel io indicator if a file is accessed. | 
3; 415 0795 1 ! CALLING SEQUENCE: | 
: 416 0738 1! CANCEL_10() 
3 617 0797 1! 
; 418 0798 1 ! INPUT PARAMETERS: 
; 419 34.94 1! None 
; 420 800 1! 
: 421 0801 1 ! IMPLICIT INPUTS: 
; : ¢ Ht : CURRENT_VCB = address of current volume control block 
; 626 0804 1 ! OUTPUT PARAMETERS: 
: 425 0805 1! None 
; 426 Bane 1! 
3 ri 0807 1 =! IMPLICIT OUTPUTS: 
; 428 0808 1! None 
: $93 0809 1! 
; 430 0810 1 ! ROUTINE VALUE: 
; 431 0811 1! None 
3 $38 pats & 
; 43 0815 1 ! SIDE EFFECTS: . 
; 434 0814 1! None 
; 435 0815 1! 
: 436 0816 1 ! USER ERRORS: 
: $3f 0817 1! None 
; 438 0818 1! 
3; 439 0819 1 !-- 
; 440 0820 1 
3: 6441 0821 2 BEGIN 
: 44 Oas¢ § 
3; «644 082 EXTERNAL REGISTER 
3; 4644 0824 COMMON M4 
3: 445 0825 
; 446 0826 IF .CURRENT_VCBCVCBS$L_WCB) NEQ 0 
3; 447 0827 R 
: 448 0828 . CURRENT_VCBLVCBSV_WAIREWIND) 
3 449 Oe¢2 R 
; 450 0830 - CURRENT_VCBCVCB$V_WAIMOUVOL J 
; 4651 ee THEN 
: 62g 8 ¢ | 
5 tt the remember that cancel was issued 
: 455 0835 CURRENT_VCBLVCB$V_CANCELIO] = 1; 
: 456 te] 
: 4657 0837 1 END; 

0000 00000 CANCEL_IO: 
“ ,WORD Save nothing : 0788 


ngPer i$cbeor)98e 99:08:09 yaRett oLiega sz, 


38 AB 05 900 TSTL _S6(CURRENT_VCB) ; 0826 
5 B AB 3 if 35 Bes) » 11 ¢CURRENT.y : 0828 
x § g §) one a8 
04 00015 


ow 


0-74 Pa 13 
83589 9 a) 
CB), 1$ 
AB BBC 11(CURRENT-VCB), 2$ 
AB B1SB2 35, 11CCURRENT. Ves 
RET 
; Routine Size: 22 bytes, Routine Base: S$CODE$ + 019C¢ 
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GLOBAL ROUTINE DO_CANCEL : COMMON_CALL NOVALU 


44 
' 


i FUNCTIONAL DESCRIPTION: 
his routine cancels all blocked io and acp functions. 


CALLING SEQUENCE: 
DO_CANCEL(), called in kernel mode 


INPUT FARAMETERS: 
None 


IMPLICIT INPUTS: 
CURRENT_VCB = address of current volume control block 
USER_STATUS = contains error code which blocked io should be returned with 


i OUTPUT PARAMETERS: 
USER_STATUS = reset to normal status 
IMPLICIT OUTPUTS: 
None 
ROUTINE VALUE: 
None 
SIDE EFFECTS: 
None 


USER ERRORS: 
None 


BEGIN 
EXTERNAL REGISTER 
COMMON_REG; 
EXTERNAL ROUTINE 
CHECK_DISMOUNT =: COMMON_CALL; ! get free virtual page 


P 
USER_STATUS : LONG; 


LOCAL 
ABD : REF BBLOCKVECTOR C, ABDSC_LENGTH], 


address containing information about blocked request 

BLOCK_PAGE, 

F CT $ BLOCK C1), 

PACKET : REF BBLOCK, ' address of io blocked request 
WINDOW; ! address of window for this request 


! If the process does not have a virtual page containing the information 
! describing the blocked request then have fatal error 


CTR. 
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' 

IF_ .CURRENT_VCBCVCBSL_VPFL] EQLA .CURRENT_VCBCVCBSL_VPBL] 
BUG_ CHECK (NOBVPVCB) ; 

REMQUE(. CURRENT VCBCVCBSL_VPBL], BLOCK_PAGE); 


PACKET = .(.BLOCK PAGE + OVPSK LENGTH * I10_PACKET - USER_STATUS); 
RET FREE PAGE(.BLOCK_PAGE,FALSE); ! return page(s) to virtual memory 
RETORN_ACL_ERR(); ! return all blocked physical io in error 
IF .CURRENT_VCBCVCBSV_WAIMOUVOL) 

. CURRENT_VCBLVCBSV_WAIREWIND] 

TERMINATE _VOL(.CURRENT_VCBCVCBSL_WCB)); 
! If fib descriptor present, zero count so the fib is not returned. 
complete i/o. 


IF .PACKET NEQ 0 
THEN 
BEGIN 


IF_.PACKETCIRPSV_COMPLX] 
THEN 
BEGIN 
FUNCTION = .PACKETCIRPSW_FUNCI; 
ABD = .BBLOCKC.PACKETCIRPSL_SVAPTE], AIBSL_DESCRIPT); 
IF_ .FUNCTIONCIOSV_ACCESS) 
ZERO_CHANNEL (PACKET) 
ELSE 
BEGIN 
FUNCTION = .PACKETCIRPS$V_F CODE); 
IF_.FUNCTION NEQ IO$_DEACCESS 
ABDCABDSC_WINDOW, ABD$W_COUNT] = 0; 
END; 
SOOCASDSL F 18, ABD$W_COUNT] = 0; 


10_DONE(.PACKET); 
END; 
: return stalled i/o with cancel 


WHILE 1 
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BEGIN 


LOCAL 
SAVE_STATUS; 


IF REMQUE(.BBLOCKC.CURRENT_VCBCVCBSL_VPFLJ, VVPSL_STALLIOFLJ, PACKET) 
EXITLOOP; 
IF_ .PACKETCIRPSV_COMPLX] 
THEN 
BEGIN 
FUNCTION = .PACKETCIRPSW_FUNC); 
ABD = .BBLOCKC.PACKETCIRP$L_SVAPTE], AIBSL_DESCRIPTI; 
if oFUNCTIONCIOSY_ACCESS) 
FOREST 
ABDCABDSC_WINDOW, ABD$W_COUNT) = 0; 


Seat AaeeS F 18. ABD$W_COUNT] = 0; 


If this is a cancel request, return is with normal status 


SAVE_STATUS = .USER_STATUS; 
FUNCTION = .PACKETCIRPS$V_F CODE); 


IF FUNCTION EQL 10$_ACPCONTROL 
NOT .PACKETCIRPSV_VIRTUAL 
USER_STATUS = 1; 

10_DONE (PACKET); 

USER_STATUS = ,SAVE_STATUS; 


If no file is accessed, turn off cancel I/0 bit now. 


IF .CURRENT_VCBCVCBSL_WCB) EQL 0 
THEN 


BEGIN 
CURRENT_VCB C VCBSV_CANCELIO J) = 0; 


! If while the cancel 1/0 was pending a dismount could have been issued 
and refused waiting for cancel I/0 to complete. Check for dismount. 


CHE CK_DISMOUNT ( .BBLOCK C .CURRENT_VCBCVCBSL_RVTJ, RVTSL_UCBLST J ); 


SSSSSSSS3SS 322233 
Oe ee eee eee eee vy vv a? a a oF at pt ot bt bt et hed 


CURRENT_VCB[VCBSV_WAIREWIND) = 0; ! no Longer waiting 
8 CURRENT~VCBLVCBSV-WAIUSRLBL} = 0: 
00 CURRENT~VCBLVCBSV-WAIMOUVOL) = 0: 


“a 
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1 ~300n 138% 96:08: 1 YRTAACP. SRe aeec in e504 . (3) 
; 631 101 ERROR(SS$_NORMAL); ' cancel function should complete normall 
3 $33 1319 ‘ END; ca , ’ 
.EXTRN CHECK _DISMOUNT, BUGS_NOBVPVCB 
007¢ .ENTRY DO_CANCEL, Save R2,R3,R4,R5,R6 : 0839 
56 00906 CF 9 MOVAB USER STATUS, ; 
40 AB C AB OD 0 CMPL 60(CORRENT_VCB), 64(CURRENT_VCB) 3; 0898 
04 12 0000C BNEG 1$ : 
Fer BUGW + 0900 
0060* 0001 .WORD <BUG$_NOBVPVCB!4> : 
59 40 88 F 12 1$ REMQUE @64(CORRENT VCB) BLOCK_PAG : 090 
5 OOOOGCF4 E 16 MOVAB 10 PACKET+*12(CBLOCK_PAGEJ, R ; 090 
51 $6 % 1C MOV USER_STATUS, R1 : 
33 <<? iF SUBL2 1 : 
5 g2 D MOVL  (R2), PACKET : 
F D4 CLRL = = (SPS + 0904 
50 DD PUSHL BLOCK_PAGE ; 
00006 CF 08 FB 9 CALLS #2, RET_FREE_PAGE : 
00006 CF 0 FB CALLS #0, RETORN ACL_ERR : 0905 
05 0B AB Oe = § #2, 11(CURRENT-VCB), 3s : 0907 
08 08 AB E1 BBC #3, 11(CURRENT-VCB), 3$ + 0909 
38 4 =6AB ODD as: PUSHL 56(CURRENT VCBY : 0911 
0000v CF 1 FB 0004 CALLS #1, TERMINATE_VOL : 
DS 00045 3s: TSTL PACKET : 0917 
1 047 BEQL. «=ss7$ : 
26 2A 0 gi 049 BBC a3 42(PACKET), 6$ + 0924 
5 20 Ag C 0004 MOVZWL 32(PACKET), FUNCTION + 0927 
53 C B82 DO 0005 MOVL  @44(PACKETS, ABD : 0928 
09 06 E1 56 C #6, FUNC , : 0930 
52 DD 0005A PUSHL PACK : 0932 
00006 CF oi Fe 5¢ CALLS #1, ZERO_CHANNEL : 
55 20 A2 6 Q EF 00063 4$: EXTZV #0, #6, 32(PACKET), FUNCTION : 0935 
4 D1 00069 CMPL = FUNCTION, #52 : 0937 
03 13 0006C BEQL g : 
02 Ad B4 0006E CLRW (ABD) : 0939 
OA Ad B4 1 5$: CLRW 0(ABD) > 0943 
52 DD 00074 6$: PUSH ACKET > 0946 
00006 CF 01 FB 007 CALLS #1, I0_DONE ; 
50 3 7$: MOVL 60 (CURRENT VCB), RO > 0959 
52 O1A4 D r 7F REMQUE 942 (RO), PACKET ; 
18 2A a2 0 5 C #3, 42(PACKET), 10$ : 0963 
5 0 A MOVZWL 32(PACKES), FUNCTION : 0966 
33 C D F MOVL a@44(PACKETS, ABD : 0967 
09 5 L C 6, FUNCTION, 8$ : 0969 
DD 0009 PUSHL PACK ; 0971 
00006 CF 6 FB 99 CALLS a. ZERO_CHANNEL ; 
02 A B4 ip gs: CLRW (ABD) : 097 
A A’ B4 OOOA $: CLRW O(ABD) : 097 
4 6 00 Nb 10$: ML USER Status SAVE_STATUS : 0980 
55 20 a2 9 EF A EXT2v #0, B6, 32(PACKETY, FUNCTION : 0981 
D1 OOOAF CMPL FUNCTION, #56 : 0983 


ybcbeoctge 03:08:09 yarett ob in4-52 v4. 05742 Page 8 


8 1 b BNEQ 11$ : 
03 2a sO i : BBS #4, 42(PACKET), 118 + 09 5 
6 9 MOVL so] USER STATUS : 09 
DD OOOBC 11$:  PUSHL PACK + 0989 
00006 cf F CALL , 10_DONE : 
é p ¢ MOVL AVE_STATUS, USER_STATUS : 9990 
8 ¢ RB : 095 
38 i p C8 12$: st 56 (CURRENT_VCB) + 0996 
08 ap 20 8A 000CD BICB2 # 11 (CURRENT. vcB) + 0999 
5 20 AB DO 00001 MOVL 32( CUR RENT_VCB)> RO + 1004 
44 AO DD 990 PUSHL  68(R 7 : 
00006 CF 01 FB 000D CALLS #1, CHECK_DISMOUNT : 
0B AB 1C BA OO00DD 13$ BICB2 «#28, TF CoRRENS _VCB) + 1009 
66 07 BO 000E1 MOVW #1, USER_STATUS~ + 1019 
04 O00E4 RET + 1011 


; Routine Size: 229 bytes, Routine Base: SCODES + 0182 
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GLOBAL ROUTINE TERMINATE _VOL (WINDOW) : COMMON_CALL NOVALUE = 


'e¢ 
i 


' FUNCTIONAL DESCRIPTION: 

This routine terminates a mount request. If a file is open 
be the user must close the file. The write indicator S cleared so 
that eof trailers are not written on deaccess. The volume is marked 
not mounted and the volume position is marked ambiguous. 


CALLING SEQUENCE: 
TERMINATE _MOUNT(WINDOW), called in kernel mode 


INPUT PARAMETERS: 
ARG] = address of window for request 

IMPLICIT INPUTS: 
None 

OUTPUT PARAMETERS: 
None 

JAPLICIT OUTPUTS: 
None 

ROUTINE VALUE: 
None 

SIDE EFFECTS: 
None 


USER ERRORS: 
None 


BEGIN 
EXTERNAL ROUTINE 
GET : 


EXTERNAL REGISTER 

COMMON 3 

WINDOW : REF BBLOCK; ! address of window control block 
LOCAL 

MVL_ENTRY : REF BBLOCK; ! address of MVL entry 


IF .WINDOW NEQ 0 f 
THEN ! a file is open 


BEGIN 
CURRENT_VCBCVCBSV_NOWRITE] = 
CURRENT. VCBLVCBSV—MUSTCL 63) 


Vi, 
= ! the file must be closed 


| 
— 


"1 
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; 69 1970 IF_ .CURRENT_VCBCVCBSV_WAIMOUVOL] 

; 69 1071 THEN 

3: 694 1 i BEGIN 

: 695 107 

: 028 1074 LOCAL 

; 69 1075 CCB : REF BBLOCK, 

3 098 1976 UCB : REF VECTOR; 

; $80 1078 MVL_ENTRY = Os VCBCVCBSL_MVL] + MVLSK_FIXLEN + 

; 701 1079 “(CU RR $9) ROUNTED)- CUR_RON) = 1)* my sk id 

: 70 1080 MVL “ENTRYERV v MOUNTED) “= 0; 15. not mounted 
; 70 1081 UCB” = LOCKE. ORRENT set eSe ko Rytl. avist’ CUCBLST 

: 704 1 ¢ UCB = ata ENT_vCBCvCB$ J; 

; 705 108 CCB_= GET_C to” tis 10 CHANNEL )5 

3; 706 1084 CCBCCCB$L_UCB) = .uUtB; 

: 707 1085 SYS$QI0W(O, .10 CHANNEL, 

: 708 1086 10$_ REWINDOFF 

: 709 1087 OR 

; 710 1088 10$M_NOWAIT 

a a 1089 OR 

s ay 1090 10S CLSEREXCE 2 o 9. & 8. 6. 6, 6 Ge 

, Ty 1091 SEND_ERRCOG(0 , 

: ay 1936 CURRENT RUCoLVCBSB Cok _RVN] = 0; ' no volume is current 
; 716 1094 ! no file is current, ie: start at beginning 

3 717 1095 ; ! 

; 718 1998 CURRENT_VCBCVCBSL_CUR_FID] = 0; 

3 719 1097 2 END; 

; 720 1098 2 . 

3: 721 1099 1 END; ! end of routine TERMINATE_MOUNT 


-EXTRN GET_CCB 


0004 00000 .ENTRY TERMINATE_VOL, Save R2 : 1013 
04 ac D3 00002 TSTL WINDOW > 1063 
05 13 00005 BEQL ; 
0B AB CO BF 88 00007 BISB2 #192, 11(CURRENT vB) + 1067 
58 0B AB 02 Fi 000C 1$: BBC We {1(CURRENT VCB), : 1070 
50 2 AB 9A 00011 MOVZBL 47(CURRENT VCBY, R : 1079 
50 4 8840 7 00015 OVAQ Red VWeBS CRO. MVL_ENTRY : 1078 
50 1 ¢ OO1A ADDL EN RY : 
7 Ao gi A 90 1p BICB MVC_ENTRY) : 1080 
52 0 AB 00000044 8F C1 1 ADDL +68 "SeCCORRENT “_VCB), UCB + 1081 
50 OE AB ¢ OO2A MOVZWL 14(CUR RRENT > RO : 1082 
52 6240 DO 000 : MOVL (UCB ver ROJ, “Ute F 
00006 CF DD 000 PUSHL  10_ CHANNEL > 1083 
00006 CF 1 FB 00 CALLS #17 GET CCB ; 
60 2 p 99 B MOVL UCB, (CB) > 1084 
— 7C 9 CLRO Utes, | : 1085 
7E 7C 0004 CLRQ = = (SP) ; 
7E 7¢ 0 4 CLRQ  -=(SP) : 
7 g6 ug ctRE =«3P) 
7E A2 BF 3C p 4 MOVZWL #674, -(SP) : 1089 
§3O8G CF DD 00040 PUSHL 10_CHANNEL > 1085 
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106 bytes, Routine Base: SCODE$S + 0297 


; Routine Size: 


1 
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ACPCTR 16-Sep-1984 02:08:09 AX-11 Bliss-32 V4.0-742 
v04-000 12-808 =1 382 95:08 35 UMTAACP. SRE ACPCTR.B32;1 
: 724 119) 1 GLOBAL ROUTINE MTA_MOUNT : NOPRES NOVALUE = 
; 725 11 § 1 
ee : 1105 1 {44 
Be 11046 1! 
: 728 1105 1 ! FUNCTIONAL DESCRIPTION: 
; 729 1198 7! This routine checks the validity of the mount request and 
: 750 1107 1! sets up a virtual page for this volume set. 
3 5) 1108 1! 
£4 ze ¢ 1109 1! 
o> x 1110 1 ! CALLING SEQUENCE: 
> 734 1111 17! MTA_MOUNT () 
g 39 1316 1! 
Sh 1113 1 =! INPUT PARAMETERS: 
3s Yor 11144 1! None 
; res 11168 1! 
; 739 1116 1°! IMPLICIT INPUTS: 
: 740 1197 3 CURRENT_UCB - address of current unit control block 
: el 1138 ! QUEUE _HEAD - address of queue head for ACP 
: reg 1199 1 ! OUTPUT PARAMETERS: 
3 744 ih ee B. None 
: 745 1158 1! 
; 746 1125 1 ! IMPLICIT OUTPUTS: 
3 ee 11$8 : : one page of virtual memory is devoted to this volume set 
3 749 1126 1 ! ROUTINE VALUE: 
3s 750 1127 1! None 
3: 751 1128 1! 
3 P36 1193 1 ! SIDE EFFECTS: 
. re 1130 1! None 
3; 754 1131 17! 
3; 755 1136 1 !-- 
; 756 1133 1 
3: 757 1134 2 BEGIN 
; 758 1135 2 
; 759 1136 2 EXTERNAL 
; 760 1137 2 CURRENT_UCB : REF BBLOCK, 
3; 761 1138 2 QUEUE _HEAD : REF BBLOCK; 
s ££ 1139 2 
s 6 1140 2 EXTERNAL REGISTER 
3: 764 1141 2 COMMON ; 
3; 765 1166 § 
3 P66 Ba IF NOT .BBLOCKCCURRENT_UCBCUCBSL_DEVCHAR], DEV$V_SQD] 
: 08 114? ; -QUEUVE_HEADCAQB$B_ACPTYPE] NEQ AQBSK_MTA 
; 770 1147 ERR_EXIT(SS$_WRONGACP) ; 
s 77% 1148 § 
2 8F 1149 KERNEL_CALL (MOUNT) ; 2 
; JF 1150 1 END; ! end of routine MTA_MOUNT 


0000 00000 -ENTRY MTA_MOUNT, Save nothing 
50 00006 CF D0 00002 MOVL § CURRENT_UCB, RO 
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43 bytes, 
1 


1151 


: 
3 


12 
1b-3¢ 1984 02:08:09 AX-11 Bliss-32 V 
1 36p-1$be 95308: 93 MTAACP. SRCJACPCT 


: 77 1152 1 ROUTINE STALL : COMMON_CA A 
776 i ; ' L : COMMON_CALL NOVALUE = 
rs ei 

; rer 1136 1 i FUNCTIONAL DESCRIPTION: 

3 ree 1128 } This routine puts the cancel request packet on the stalled queue. 
: 784 1160 1 § CALLING SEQUENCE: 

; re? 1183 : } STALL(), called in KERNEL mode 

; 787 1188 1 | INPUT PARAMETERS: 

end 6h 

: 790 1166 1 | IMPLICIT INPUTS: 

Pg he ipa 

: 79 1169 1 | OUTPUT PARAMETERS: 

oy es Aah EL see 

: 796 1178 1 | IMPLICIT OUTPUTS: 

: a 44 ae, ! : cancel request queued to stall 1/0 queue 
: 799 1175 1 § ROUTINE VALUE: 

Pb el ee 

: 80 1178 1! SIDE EFFECTS: 

; 80 1179 1! None 

3 804 1180 1: 

re Hat 

Be Rg ccem 

: 809 1185 g EXTERNAL 

: a9 1138 2 10_PACKET : REF BBLOCK; ! address of current I/0 packet 
; Bie 1188 EXTERNAL REGISTER 

: 81 1189 COMMON_REG; 

: Rs 1194 LOCAL 

; B16 1198 VPAGE =: REF BBLOCK; 

: 818 1194 VPAGE = .CURRENT veBcycBst VPFLI; 

; 819 1195 INSQUE(.1O_PACKET, .VPAGECOVPSL_STALLIOBL)); 
: 820 1196 10. PACKET = 0; 

: 821 1197 1 END; 


STALL: .WORD Save rosuene 
MOVL  60(CURRENT_VCB), VPAGE 
INSQUE @10 PACKET; @424(VPAGE) 
cLRL 10_PACKET 


Bete te Be te 


D 12 
ACPCTR 16-Sep-1984 02:08:09 —YAX=11_ Bliss-32 v4.0-74 
¥06<000 132308= 1382 THT eat MTAACP. SROIA ACPCTR.B32; 


; Routine Size: 18 bytes, Routine Base: SCODES + 032C 


; § ¢ 1198 1 END 
3 8 1199 
: 824 1200 0 ELUDOM 
3 PSECT SUMMARY 
: Name Bytes Attributes 
: SCODES 830 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL. CON,NOPIC,ALIGN(2) 
3 Library Statistics 
Bet. See oe aae SyGRO(§ sooceooe Pages Processing 
3 File Total Loade* Percent Mapped Time 
: _$255$DUA28:CSYSLIBILIB.L32;1 18619 74 0 1000 00:01.9 
3 COMMAND QUALIFIERS 
3 BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:ACPCTR/OBJ=OBJ$:ACPCTR MSRC$:ACPCTR/UPDATE=(ENHS$:ACPCTR) 
; Size: 830 code + 0 data bytes 
Run Time 720.6 
Elapsed tiaes 00:56.8 
Lines/CPU Min: 490 


Lexemes/CPU-Min: 19902 
Memory Used: 158 pages 
Compi.cation Complet 


roo > re 


0253 SH-BT13A- SE | | T CORPORATION 
J0J3 VAX/VMS V4.0 | PROPRIETARY 


